0 X$="XX":FORI=.TO3:X$=X$+X$:NEXT:X$=X$+"XXXXXXX":GOTO392
2 *********************************:*THEDISKLABELER+V1.1*:*BYFREDLAYBERGER--SEP1985*:*OKAYTOUSEBUTNOTTOSELL*:*********************************
7 PRINT"[147]"CY$S2$BL$R$S1$:POKE53281,11:GOSUB19:Y=24:X=.:GOSUB9:PRINTBL$S1$CY$S3$;:POKE2023,160:POKE56295,3:RETURN
9 PRINTLEFT$("",Y)TAB(X);:RETURN
10 GOSUB16:Y=24:X=47:GOSUB9:PRINTR$CY$"  PRESS ' ^ ' TO RETURN    ";:I$=""
11 Y=24:X=20-LEN(P$)/2:GOSUB9:PRINTW$P$;:FORI=1TO200:NEXT:A=A+1AND1:POKE199,A:GETI$:IFI$=""THEN11
13 RETURN
14 Y=24:X=.:GOSUB9:PRINTBL$S3$R$" "O$;:Y=24:X=20-LEN(P$)/2:GOSUB9:PRINTP$;:RETURN
16 Y=24:X=40:GOSUB9:PRINTCY$S3$W$;:RETURN
17 GOSUB19:GOSUB14:GOSUB16:RETURN
18 Y=22:X=8:GOSUB9:PRINTR$W$"INSERT "P$" DISKETTE ";:RETURN
19 Y=3:X=.:GOSUB9:FORI=3TO23:PRINT"[155]                                      [146]":NEXT:RETURN
21 POKE808,225:A1=PEEK(55):A2=PEEK(56):POKE55,PEEK(51):POKE56,PEEK(52):RETURN
22 A=FRE(.):POKE55,A1:POKE56,A2:POKE808,237:IFA=>3000THENRETURN
23 Y=10:X=11:GOSUB9:PRINT"[158]PROGRAM MAY PAUSE":Y=11:X=9:GOSUB9:PRINT"[158]FOR GARBAGE COLLECTION":Z=FRE(.):Y=10:X=11:GOSUB9:PRINT"[155]                  ":Y=11:X=9:GOSUB9:PRINT"[155]                      ":RETURN
28 INPUT#15,ER,ER$,T,S:RETURN
29 GOSUB19:Y=22:X=9:GOSUB9:POKE53281,2:PRINTER;ER$;T;S:P$=S6$:GOSUB10:RETURN
30 P$=P1$:GOSUB17:CLOSE15:OPEN15,DD,15,"I"+MID$(STR$(DR),2,1)+":":GOSUB28:RETURN
31 GOSUB29:X=PEEK(152):FORI=1TOX:CLOSEPEEK(601):NEXT:RETURN
33 Y=24:X=47:GOSUB9:PRINTR$CY$"PRESS 'RETURN' TO CONTINUE";:IFUTHENRETURN
34 X=21-LEN(P$):GOSUB9:PRINTW$P$;:Y=24:X=21
35 GOSUB21
36 A$=J$+RIGHT$(A$,J-I):GOSUB9:PRINTR$A$;:GOSUB9:PRINTR$J$;:IFI<JTHENPRINT"[166]";
37 WAIT198,1:GETI$:POKE198,.:IFI$=CHR$(13)THEN49
38 IFI$=CHR$(19)ORI$=CHR$(34)ORI$=""ORI$=CHR$(131)ORI$=CHR$(147)ORI$=CHR$(141)THEN36
39 IFI<=1THENIFI$=CHR$(20)ORI$=CHR$(157)THENI=.:J$="":GOTO36
40 IFI$=CHR$(29)ANDI<JTHENI=I+1:J$=LEFT$(A$,I):GOTO36
41 IFI$=CHR$(148)THEN36
42 IFI$=CHR$(20)ORI$=CHR$(157)THENJ$=LEFT$(J$,LEN(J$)-1):I=I-1:GOTO36
43 IFI$=CHR$(17)THENPRINT"[145]":J$=LEFT$(J$,LEN(J$)):GOTO36
44 IFI$=CHR$(145)THENPRINT"[145]":J$=LEFT$(J$,LEN(J$)):GOTO36
45 IFKTHENIFI$="*"THEN47
46 IFSL<>1THENIFI$="*"THENJ=I+1:GOTO48
47 IFI=JTHENIFI$<>CHR$(13)THEN36
48 J$=J$+I$:I=I+1:GOTO36
49 GOSUB22:RETURN
51 DEFFNR(X)=INT((IP/CL-INT(IP/CL))*CL+.5):C1$=CHR$(15):C2$=CHR$(18):Z=.:IP=N:C3$=CHR$(14):C4$=CHR$(20):H1$=E$+"E"+E$+"G":H2$=E$+"F"+E$+"H":T1$=C1$+E$+"S"+CHR$(48)+E$+"A"+CHR$(6):T2$=C2$+E$+"T"+E$+"A"+CHR$(12)
55 A=2:ONPCGOTO56,57,58,59,60,61,62,63,64,65,66,67
56 E=1:B=.:C=1:D=.:CL=3:PL=1:RETURN
57 E=1:B=2:C=.:D=1:CL=3:PL=10:RETURN
58 E=1:B=2:C=.:D=1:CL=3:PL=16:RETURN
59 E=1:B=2:C=2:D=9:CL=3:PL=16:RETURN
60 E=8:B=4:C=.:D=1:CL=4:PL=28:RETURN
61 E=1:B=2:C=.:D=1:CL=3:PL=14:RETURN
62 E=7:B=1:C=.:D=2:CL=4:PL=22:RETURN
63 E=7:B=1:C=.:D=1:CL=4:PL=28:RETURN
64 E=10:B=4:C=1:D=3:CL=4:PL=36:RETURN
65 E=19:B=8:C=1:D=1:CL=5:PL=30:GOTO69
66 E=19:B=8:C=1:D=1:CL=5:PL=30:T1$=C1$+E$+"G":T2$=C2$+E$+"H":GOTO69
67 A=1:E=19:B=6:C=1:D=1:CL=3:PL=48:P$=" * * * * * * * * * *":T1$=E$+"E":T2$=E$+"F"
69 X=INT(IP/CL):R=FNR(X):IFR>.THENIFR<=CLTHENX=X+1
70 RETURN
72 U=3:Y=20:X=17-LEN(P$)/2:GOSUB9:PRINTP$:X=X+LEN(P$)+2:GOSUB9:PRINTW$"NO ":Y=Y+1:GOSUB9:PRINTR$"YES":GOSUB205:IFI$="^"THENRETURN
75 I$="N":IFC=1THENI$="Y":POKES+B,160
76 RETURN
78 F$=":\*":U=1:GOSUB112:IFERTHENN=.:GOSUB92:RETURN
79 IFI$<>"^"THENIFNF<.THENP$=P7$:GOSUB10:RETURN
80 F$=V$(B/40+BB):GOSUB92:IFI$="^"THENRETURN
81 GOSUB30:OPEN1,DD,.,MID$(STR$(DR),2,1)+":"+F$+",S,R":GOSUB28:IFERTHEN31
83 GOSUB21:INPUT#1,N:INPUT#1,DT$:INPUT#1,ID$:INPUT#1,BK$:INPUT#1,P:GOSUB467:IFMATHEND$=ID$:ID$="\\"
85 F$=D$+ID$:I$="":Y=5:X=5:GOSUB9:PRINTW$R$"LOADING...":Y=6:GOSUB9:PRINTNTAB(10)DT$"  "ID$:POKE850,76:POKE851,88:POKE852,3:POKE952,21:FORI=1TON:SYSDL:T$(I)=LEFT$(X$,20):Y=7:GOSUB9:PRINTR$ITAB(10)T$(I):NEXT:GOSUB22:GOSUB28:IFERTHEN31
91 CLOSE1:BK$=RIGHT$("    "+BK$,4):RETURN
92 GOSUB21:FORI=1TONF:V$(I)="":NEXT:GOSUB22:RETURN
94 P$=S9$:GOSUB18:P$=S6$:GOSUB10:IFI$="^"THENRETURN
95 GOSUB30:F$="\"+LEFT$(DT$,15):OPEN1,DD,8,MID$(STR$(DR),2,1)+":"+F$+",S,W":GOSUB28:IFER=63THENP$=S5$:GOTO107
98 IFERTHEN31
99 Y=5:X=5:GOSUB9:PRINTW$R$"SAVING"N"[157] PROGRAMS":GOSUB467:IFMATHENID$=D$
101 PRINT#1,N:PRINT#1,DT$:PRINT#1,ID$:PRINT#1,BK$:PRINT#1,P:GOSUB467:IFMATHENID$="\\"
103 FORI=1TON:PRINT#1,T$(I):Y=7:GOSUB9:PRINTI;TAB(10)T$(I):NEXT:GOSUB28:IFERTHEN31
106 CLOSE1:U=10:RETURN
107 CLOSE1:GOSUB17:GETI$:IFI$="Y"THENP$=P1$:GOSUB14:PRINT#15,"S"+MID$(STR$(DR),2,1)+":"+F$:GOTO95
109 IFI$<>"N"THEN107
110 Y=2:X=60-LEN(H$)/2:GOSUB9:PRINTR$W$H$;:RETURN
112 IFN<1THEN119
113 Y=10:X=12:GOSUB9:PRINTR$"[158]CAUTION..."W$:PRINTR$"ENTRIES CURRENTLY IN THE    ":PRINTR$"COMPUTER'S MEMORY ARE LOST  ":PRINTR$"WHEN A FILE IS LOADED UNLESS":PRINTR$"IT HAS BEEN SAVED PRIOR TO  "
118 PRINTR$"LOADING THE NEW FILE.       "
119 P$=S8$:IFU>.THENP$=S9$
120 GOSUB18:P$=S6$:GOSUB10:IFI$="^"THENRETURN
121 IFU>.THENGOSUB30:GOTO123
122 P$=P1$:GOSUB17:CLOSE15:OPEN15,SD,15,"I"+MID$(STR$(SR),2,1)+":":P$=S8$
123 POKE850,32:POKE851,228:POKE852,255:POKE952,29:IFU>.THENOPEN1,DD,.,"$"+MID$(STR$(DR),2,1)+F$:GOTO126
125 OPEN1,SD,.,"$"+MID$(STR$(SR),2,1)+F$
126 GOSUB28:IFERTHEN31
127 IFN>1THENGOSUB21:FORI=.TON:T$(I)="":NEXT:GOSUB22:N=.:Z=FRE(.)
128 SYSDL:DT$=MID$(X$,7,16):ID$=MID$(X$,25,2):H$=DT$+ID$:GOSUB110:NF=-1:POKE850,76:POKE851,100:POKE852,3:POKE952,24:GOSUB21
132 SYSDL:B$=LEFT$(X$,1):C$=MID$(X$,2,1):S$=STR$(ASC(C$)*256+ASC(B$)):S$=RIGHT$("    "+S$,4):IFSTTHEN137
134 Y=5:X=9:GOSUB9:PRINTW$R$MID$(X$,3,19)S$:NF=NF+1:V$(NF)=MID$(X$,3,16)+MID$(X$,20,2)+S$:GOTO132
137 GOSUB22:GOSUB28:IFERTHEN31
138 BK$=S$:IFI$="^"THENN=.
139 CLOSE1:IFNF<.THENRETURN
140 H$=H$+BK$+" BKS FREE":GOSUB110
142 GOSUB19:PRINTP4$P5$;:IFU=1THENY=25:X=.:GOSUB9:PRINTS0$;
143 S=1145:B=.:FORK=.TONFSTEP38
144 Y=4:X=2:FORJ=.TO18:SL=13:X=2:GOSUB174:Y=Y+1:IFY=23THENY=4
146 PRINT:IFJ+K=NFTHENJ=37
147 NEXT:X=2
148 POKES+B,62:POKE198,.:WAIT198,1:GETI$:IFI$="[145]"THENB=B-40:POKES+B+40,160:IFB=-40THENPOKES+B,160:B=18*40:GOTO152
150 IFI$=""THENB=B+40:POKES+B-40,160:IFB=19*40THENPOKES+B,160:B=.:GOTO152
151 POKES+B-40,160:IFI$<>""THEN154
152 IFS=1164THENPOKES+B,160:S=S-19:X=2:GOTO154
153 IFS=1145THENPOKES+B,160:S=S+19:X=22
154 IFU=1THENIFI$="E"ORI$="^"THENK=NF:NEXT:GOSUB179:U=.:RETURN
155 IFU=2THENIFI$="^"THENK=NF:NEXT:GOSUB179:U=.:RETURN
156 IFI$="E"THEN167
157 IFI$="S"THENIFU<>1THENGOSUB178:POKES+B,160:GOTO144
158 IFI$="^"THENK=NF:NEXT:GOSUB179:RETURN
159 IFNF>37THENIFI$="N"THENGOSUB19:B=.:S=1145:NEXT:GOTO142
160 IFI$="P"THENIFK>.THENK=K-38:B=.:S=1145:GOSUB19:GOTO144
161 IFI$<>CHR$(13)THEN148
162 BB=K:POKE198,.:Y=B/40+4:GOSUB9:IFS=1164THENBB=K+19:X=21
163 IFU=1THENIFV$(B/40+BB)>""THENRETURN
164 IFX(B/40+BB)=1THENX(B/40+BB)=.:PRINTO$;:GOTO166
165 IFX(B/40+BB)=.THENX(B/40+BB)=1:PRINTR$;
166 GOSUB9:GOSUB173:PRINT:GOTO148
167 P$=W$+P2$:GOSUB14:GOSUB16:GETI$:IFI$="Y"THENU=9:GOTO170
168 IFI$<>"N"THEN167
169 Y=24:X=.:GOSUB9:PRINTP4$P5$;:X=2:Y=Y-1:GOTO148
170 GOSUB21:P$=P1$:GOSUB17:N=1:FORI=.TONF:IFX(I)=1THENT$(N)=LEFT$(V$(I),17)+RIGHT$(V$(I),3):X(I)=.:N=N+1
172 V$(I)="":NEXT:GOSUB22:N=N-1:P=1:RETURN
173 PRINTW$LEFT$(V$(B/40+BB),SL)MID$(V$(B/40+BB),SL+4,1)RIGHT$(V$(B/40+BB),3);:RETURN
174 GOSUB9:IFX(K+J)=1THENPRINTR$;
175 PRINTW$LEFT$(V$(K+J),SL)MID$(V$(K+J),SL+4,1)RIGHT$(V$(K+J),3)O$;:IFX(K+J+19)=1THENPRINTR$;
177 PRINT""LEFT$(V$(K+J+19),SL)MID$(V$(K+J+19),SL+4,1)RIGHT$(V$(K+J+19),3):RETURN
178 FORI=.TONF:X(I)=X(I)+1AND1:NEXT:RETURN
179 P$=P1$:GOSUB17:FORI=.TONF:X(I)=.:V$(I)="":NEXT:RETURN
181 POKE1023,.:P$="SORTING"+STR$(N)+" FILES":GOSUB17:SYSML,T$(.):P=.:POKE1015,SD:POKE1016,DD:POKE1017,SR:POKE1018,DR:POKE1019,SA:RETURN
184 U=1:G=N+1:T$(G)=" BLANK RECORD   ? 00":GOSUB192:N=N+1:RETURN
185 P$="PROGRAM NAME?":J=15:A$="               ":J$="":I=.:GOSUB33:IFJ$=""THENRETURN
186 G=1:P$=P1$:GOSUB17
187 IFRIGHT$(J$,1)="*"THENJ$=LEFT$(J$,J-1)
188 J=LEN(J$):IFJ$=LEFT$(T$(G),J)THEN192
189 G=G+1:IFG=N+1THENGOSUB19:P$="FILE NOT FOUND":GOSUB10:RETURN
190 GOTO187
192 P$=BL$:GOSUB17:Y=15:X=10:GOSUB9:IFJ$="D"THEN203
193 PRINTR$W$P8$:PRINTTAB(X)T$(G):Y=13:X=10:GOSUB9:PRINTR$"[152]CHANGE[146]FROMTO":A$=T$(G):P$=BL$:GOSUB14:GOSUB16:U=1:J$="":I=.:GOSUB33:U=.:PRINTW$;:I=.:J=20:J$="":Y=17:X=10:GOSUB35:J$=A$:I$="":PRINT"[158]";:P$=LEFT$(P2$,12)+"?":GOSUB72:IFI$="N"THEN192
200 IFK=2THENIFI$="^"THENRETURN
201 IFI$="^"THENN=N-1:RETURN
202 T$(G)=J$:P=1:RETURN
203 P$=P1$:GOSUB14:GOSUB21:FORI=GTON:T$(I)=T$(I+1):NEXT:GOSUB22:N=N-1:J$="":RETURN
205 B=.:S=1152:Y=24:X=8:GOSUB9:PRINTW$R$".....CRSR=MOVEMENT....."SPC(9)S0$;:C=N:IFU=1THENB=40*G:C=14:S=1193
207 IFU=2THENC=11:S=1267:IFPCTHENB=40*(PC-1)
208 IFU=3THENC=1:S=1784+18+LEN(P$)/2
209 IFI$="D"THENJ$="D"
210 POKES+B,62:POKE198,.
211 GETI$:IFI$=""ORI$=""THENIFB+40=760ORB/40=>CTHENPOKES+B,160:B=-40
212 IFI$=""ORI$=""THENB=B+40:POKES+B,62:POKES+B-40,160
213 IFI$="[145]"ORI$="[157]"THENIFB-40=-40THENPOKES+B,160:B=760:IFC<19THENB=C*40+40
214 IFI$="[145]"ORI$="[157]"THENPOKES+B,160:B=B-40:POKES+B,62
215 IFI$="N"ORI$="P"ORI$="E"ORI$="S"ORI$="^"THENRETURN
216 IFUTHENIFI$=CHR$(13)THENC=B/40:U=.:RETURN
217 IFI$<>CHR$(13)THEN211
218 IFN<19THENC=B/40:GOTO220
219 C=J-18+B/40:IFC<.THENC=N-ABS(C)+1
220 IFCTHENG=C:K=2:GOSUB192:C=G
221 J=C-1:IFN<19THENJ=-1
222 GOSUB7:RETURN
224 POKE53280,13:F$=":\*":U=2:GOSUB112:IFERTHENN=.
225 IFI$="^"ORERTHENRETURN
226 IFNF<.THENP$=P7$:GOSUB10:N=.:RETURN
227 IFT$(1)=""THENRETURN
228 DT$="\MASTER         ":ID$="\\":MA=1:I=.:FORK=1TON:OPEN1,DD,.,MID$(STR$(DR),2,1)+":"+T$(K)+",S,R":INPUT#1,J:I=I+J:CLOSE1:NEXT:BK$=RIGHT$("    "+STR$(I),4):RETURN
233 IFP=2THEN247
234 P$=BL$:GOSUB17:P$="SET/RESET OPTIONS?":GOSUB72:IFI$="^"THENRETURN
235 IFI$="Y"THENGOSUB273
236 P$=BL$:GOSUB17:V$(.)=DT$+ID$+BK$+STR$(P):P$=P1$:GOSUB14:GOSUB21:FORK=1TON:V$(K)=T$(K):T$(K)="":NEXT:GOSUB22:M=N:P$=S9$:GOSUB18:P$=S6$:GOSUB10:IFI$="^"THEN243
239 FORK=1TOM:F$=V$(K):GOSUB81:IFERTHENK=M:GOTO242
240 GOSUB19:GOSUB285:IFI$="^"THENK=M
241 GOSUB21:FORI=1TON:T$(I)="":NEXT:GOSUB22
242 NEXT
243 P$=P1$:GOSUB17:DT$=LEFT$(V$(.),16):ID$=MID$(V$(.),17,2):BK$=MID$(V$(.),19,4):P=VAL(RIGHT$(V$(.),1)):GOSUB21:FORK=1TOM:T$(K)=V$(K):V$(K)="":NEXT:N=M:CLOSE15:GOSUB22:RETURN
247 IFVAL(BK$)<1201THEN250
248 P$=BL$:GOSUB17:Y=20:X=4:GOSUB9:PRINTR$"[158]TOO MANY RECORDS - 1200 MAXIMUM!":P$=S6$:GOSUB10:RETURN
250 PRINT"[158]";:P$="HAVE YOU SAVED[153] MASTER [158]FILE?":GOSUB72:IFI$="N"ORI$="^"THENRETURN
251 POKE1015,SD:POKE1016,DD:POKE1017,SR:POKE1018,DR:POKE1019,SA:POKE49152,.:POKE53281,15:PRINT"[147]LOAD"CHR$(34)"DISK LAB.MSORT"CHR$(34)","DD:PRINT"RUN":PRINT"[151]";:POKE198,8:FORI=1TO7:POKE630+I,13:NEXT:STOP
255 J=-1:GOSUB19:GOSUB467
256 P$=DT$+ID$+STR$(N)+" PROGRAMS":IFN<1ORI$="^"THENRETURN
257 Y=2:X=60-LEN(P$)/2:GOSUB9:PRINTW$R$P$:GOTO262
258 P$=P6$:G=1:IFLEFT$(DT$,3)="\MA"THENP$=MID$(P6$,19):G=.
259 GOSUB14:GOSUB10:IFI$="^"THENRETURN
260 IFGTHENIFI$="C"ORI$="D"THENP$=BL$:GOSUB14:GOSUB205:GOTO256
261 IFN<19THEN259
262 GOSUB19:X=.:Y=4:GOSUB9:IFI$<>"P"THENJ=J+1:GOTO265
264 J=J-37:IFJ<.THENJ=N-ABS(J)+1:IFJ<.THENJ=.
265 IFJ>NTHENJ=.
266 IFJ=.THEN270
267 PRINTTAB(9)W$T$(J):IFN<19THENIFJ=NTHEN258
268 IFPEEK(214)<22THENJ=J+1:GOTO265
269 GOTO258
270 PRINTW$R$""P8$:GOTO268
272 :
273 P$=BL$:GOSUB17:P$="PRINT OPTIONS":Y=4:X=13:GOSUB9:PRINTCY$P$:PRINTTAB(6)"VERTICAL X HORIZONTAL SIZE":X=4:Y=7:FORI=1TO12:GOSUB9:PRINTR$W$MID$(STR$(I)+"  ",2,2)O$PC$(I):Y=Y+1:NEXT:U=2:GOSUB205:IFI$="^"THENRETURN
277 PC=C+1:P$=BL$:GOSUB17:P$="COMMENT/DATE/ETC...":J=17:A$=LEFT$("                 ",J-LEN(D$)):GOSUB14:J$=D$:I=LEN(D$):Y=22:X=5:GOSUB9:PRINT"[159]NO COMMAS,SEMICOLONS OR COLONS":GOSUB33:D$=J$:RETURN
283 P$=BL$:GOSUB17:P$="SET/RESET OPTIONS?":GOSUB72:IFI$="^"THENRETURN
284 IFI$="Y"THENGOSUB273
285 IFK>1THEN288
286 P$=BL$:GOSUB17:Y=18:X=4:GOSUB9:PRINTR$"[158]PREPARE PRINTER & POSITION LABELS":P$=S6$:GOSUB10:IFI$="^"THENRETURN
288 P$=T3$:E$=CHR$(27):S=4:CLOSES:OPENS,S,SA:GOSUB51:IFMTHENIFPC>9THENGOSUB346
289 IFK>1THENP$=""
290 PG=PL:PRINT#S,E$"U"CHR$(48);:FORI=1TOCL:PRINT#S,P$SPC(B/A);:NEXT:PRINT#S:IFK>1THEN294
292 P$="TEST ALIGNMENT AGAIN?":GOSUB72:S=4:P$=T3$:GOSUB51:IFI$="^"THENCLOSES:RETURN
293 IFI$="Y"THENLN=.:GOTO288
294 PRINT#S,H1$;:IFCTHENFORI=1TOC:PRINT#S:NEXT
295 P$=S4$:GOSUB17:Y=4:X=5:GOSUB9:IFPC>1THEN299
296 PRINT#S,C3$SPC(E)DT$C4$:GETI$:IFI$="^"THEN345
297 PRINT#S,C3$SPC(E)ID$" "MID$(STR$(VAL(BK$)),2)" BLKS FREE":PRINT#S,""SPC(E*3)D$H2$:PRINT#S:GOTO345
299 PRINT#S,C3$SPC(E/2)DT$ID$C4$:GETI$:IFI$THEN345
300 PRINT#S,""SPC(E)MID$(STR$(VAL(BK$)),2)" BLKS FREE - "D$H2$;
301 X=INT(IP/CL):IFN>PG*CLTHENX=PL:IP=PG*CL
302 C3=2*X:C4=3*X:C5=4*X:R=FNR(X):IFR>.THENIFR<=CLTHENX=X+1
303 C3=2*X:C4=3*X:C5=4*X:ONCLGOTO304,305,307,311,316
304 C3=IP:C4=IP:C5=IP:GOTO321
305 IFRTHENC3=2*X-1
306 GOTO321
307 ONRGOTO309,310
308 GOTO321
309 C3=X:C4=2*X-1:GOTO321
310 C4=3*X-1:GOTO321
311 ONRGOTO313,314,315
312 GOTO321
313 C3=2*X-1:C4=3*X-2:GOTO321
314 C4=3*X-1:GOTO321
315 GOTO321
316 ONRGOTO318,319,320
317 GOTO321
318 C3=2*X-1:C4=3*X-2:C5=4*X-3:GOTO321
319 C4=3*X-1:C5=4*X-2:GOTO321
320 C5=4*X-1
321 PRINT#S,T1$:IFDTHENFORI=1TOD:PRINT#S:NEXT
323 FORI=1TOCL-1:PRINT#S,P9$SPC(B);:NEXT:PRINT#S,P9$:IFPC<10THENIFX<PL-1THENFORI=1TOINT((PL-X)/2):PRINT#S:NEXT
325 IFZ>.THENC3=C3+Z:C4=C4+Z:C5=C5+Z:IFN<=PG*CLTHENIP=IP+Z
326 FORI=1TOX:GETI$:IFI$="^"THENI=X:NEXT:GOTO345
327 PRINT#S,T$(I+Z)SPC(B);:IFC3=>I+X+ZTHENPRINT#S,T$(I+X+Z)SPC(B);
329 IFI+C3>IPTHENPRINT#S:GOTO335
330 IFC4=>I+C3THENPRINT#S,T$(I+C3)SPC(B);
331 IFI+C4>IPTHENPRINT#S:GOTO335
332 IFC5=>I+C4THENPRINT#S,T$(I+C4)SPC(B);
333 IFI+C5>IPTHENPRINT#S:GOTO335
334 IFC5+X=>I+C5THENPRINT#S,T$(I+C5)
335 NEXT:IFPC<10THENIFX<PL-1THENFORI=1TOINT((PL-X)/2):PRINT#S:NEXT
336 IFPC<10THENIFXAND1THENPRINT#S
337 FORI=1TOCL-1:PRINT#S,P9$SPC(B);:NEXT:IFN<=PG*CLTHENPRINT#S,P9$:GOTO339
338 PRINT#S,"-----CONTINUED------"
339 IFPC=6ORPC=7THENFORI=1TO5:PRINT#S:NEXT
340 IFN<=PG*CLTHEN345
341 PRINT#S,T2$;H1$:IFCTHENFORI=1TOC:PRINT#S:NEXT
343 PRINT#S,DT$ID$" CONTINUED...":PRINT#S,"PAGE#"(PG/PL)+1" - "D$H2$;:Z=PG*CL:IP=N-(PG*CL):PG=PG+PL:GOTO301
345 PRINT#S,T2$;:CLOSES:RETURN
346 J=66:JJ=7:IFPC=10THENJ=132:JJ=10
347 IFX+JJ<J-LNTHEN350
348 IFPC=10THENPRINT#S,E$"A"CHR$(6);
349 FORI=1TOJ-LN:PRINT#S:NEXT:LN=.:IFPC=10THENPRINT#S,E$"A"CHR$(12);
350 LN=LN+JJ+X:IFLN=>JTHENLN=.
351 RETURN
353 GOSUB17:Z=.:U=.:I=.:P$=R$+"[155]   [157][157][157][157][157]"+O$+W$
354 SD=SD+I:GOSUB371:Y=7:X=4:GOSUB9:PRINTW$"SOURCE DEVICE #:",P$SD:IFUTHENRETURN
355 DD=DD+I:GOSUB371:Y=9:GOSUB9:PRINT"MASTER DEVICE #:",P$DD:IFUTHENRETURN
356 SR=SR+I:GOSUB371:Y=11:GOSUB9:PRINT"SOURCE DRIVE #:",,P$SR:IFUTHENRETURN
357 DR=DR+I:GOSUB371:Y=13:GOSUB9:PRINT"MASTER DRIVE #:",,P$DR:IFUTHENRETURN
358 SA=SA+I:Y=15:GOSUB9:PRINT"SECONDARY ADDRESS:",P$SA:IFUTHENRETURN
359 Y=19:GOSUB9:PRINTR$"USE CURSOR KEYS TO SELECT":Y=21:GOSUB9:PRINTW$R$"USE +/- KEYS TO CHANGE":GOSUB16:Y=24:X=47:GOSUB9:PRINTR$CY$"  PRESS ' ^ ' TO RETURN    ";:IFZ=1THENRETURN
362 Y=7:U=1
363 I=.:X=28:GOSUB9:PRINTR$W$">>":X=4:GETI$:IFI$="-"THENI=I-1:GOSUB369
364 IFI$="+"THENI=I+1:GOSUB369
365 IFI$=""ORI$=""THENX=25:GOSUB9:PRINTP$:Y=Y+2:U=U+1:X=28:I=.:IFY>15THENY=7:U=1
366 IFI$="[145]"ORI$="[157]"THENX=25:GOSUB9:PRINTP$:Y=Y-2:U=U-1:X=28:I=.:IFY<7THENY=15:U=5
367 IFI$="^"ORI$=CHR$(13)THEN380
368 GOTO363
369 ONUGOSUB354,355,356,357,358:RETURN
371 IFSD<8THENSD=15
372 IFSD>15THENSD=8
373 IFDD<8THENDD=15
374 IFDD>15THENDD=8
375 IFSR<.THENSR=1
376 IFSR>1THENSR=.
377 IFDR<.THENDR=1
378 IFDR>1THENDR=.
379 RETURN
380 IFSD=8ANDDD=8THENRETURN
381 P$=BL$:GOSUB17:P$="CHANGE DEVICE #?":GOSUB72:IFI$="N"ORI$="^"THENRETURN
382 P$=BL$:GOSUB17:Y=17:X=7:GOSUB9:PRINTR$"[158]TURN OFF ALL DRIVES EXCEPT":Y=Y+1:GOSUB9:PRINTR$"  THE ONE TO BE CHANGED.  "
384 P$="OLD DEVICE # ":J=2:A$="  ":J$="8":I=1:GOSUB33:IFJ$=""THENRETURN
385 OD=VAL(J$):IFOD<8OROD>15THEN384
386 P$="NEW DEVICE # ":J=2:A$="  ":J$="9":I=1:GOSUB33:IFJ$=""THENRETURN
387 ND=VAL(J$):IFND<8ORND>15THEN386
388 CLOSE15:OPEN15,OD,15:PRINT#15,"M-W"CHR$(119)CHR$(.)CHR$(2)CHR$(ND+32)CHR$(ND+64):P$=BL$:GOSUB17:Y=20:X=10:GOSUB9:PRINTR$"[158]TURN ON OTHER DRIVE!":P$=S6$:GOSUB10:CLOSE15:RETURN
392 PRINTCHR$(142):ML=PEEK(45)+256*PEEK(46)-262-3:RESTORE:R$="":O$="[146]":BL$="":CY$="[159]":W$="":POKE53280,7:POKE53281,11:DIMV$(152),T$(152),M$(15),PC$(12):DL=830:SD=9:DD=8:SA=6:CL=3:IFPEEK(1015)<>.THENSD=PEEK(1015):DD=PEEK(1016):SR=PEEK(1017):DR=PEEK(1018):SA=PEEK(1019)
396 DIMX(152):READM$(.):FORI=1TO15:READM$(I):M$(I)=LEFT$(M$(I)+"                  ",18):NEXT:FORI=1TO12:READPC$(I):NEXT:D$="DISK LABELER+":S1$="                                        [146]":S2$="[159]         THE DISK LABELER+ V1.1         [146]"
401 S3$="                                       [146]":S4$="PRESS & HOLD '^' TO STOP PRINTING":S5$="[158]REPLACE EXISTING FILE (Y/N)?":S6$="PRESS A KEY TO CONTINUE":S7$="SELECT ONE"
406 S8$="[158]SOURCE":S9$="[158]MASTER":P1$="WORKING":P2$="SELECTION OK (Y/N)?":P3$="NO FILES AVAILABLE!":P4$="CRSR=MOVEMENT  N=NEXT  P=PREVIOUS[146]":P5$="RETURN=SELECT S=SWAP E=END ^=MENU[146]"
413 S0$="      RETURN=SELECT  ^=MENU      [146]":P6$="C=CHANGE D=DELETE P=PREVIOUS OTHERS=NEXT":P7$="NO DISK LABELER FILES FOUND":P8$="FILENAME        T SZ":P9$="--------------------"
418 T3$=" * * * * * *":GOSUB7:Y=3:X=5:GOSUB9:PRINTW$R$"VERIFIED/C64/1541/FX80/CARD?/G":READP$:Y=5:X=4:GOSUB9:PRINT"[158]"R$P$:X=2:FORY=7TO13:READP$:GOSUB9:PRINTW$R$P$:NEXT:FORY=16TO22:READP$:X=20-LEN(P$)/2:GOSUB9:PRINTP$:NEXT:IFPEEK(DL)=160THEN425
424 OPEN1,8,.,"0:DISK LAB.DIR,S,R":FORI=DLTODL+148:INPUT#1,A:POKEI,A:NEXT:CLOSE1
425 Z=FRE(.):I$="":P$=" INSTRUCTIONS (Y/N)? ":POKE198,.:GOSUB10:IFI$<>"Y"THEN437
426 IFCTHENP$=S9$:GOSUB18:P$=S6$:GOSUB10:IFI$="^"THENRETURN
427 CLOSE1:OPEN15,DD,15:S=3:OPEN1,DD,.,MID$(STR$(DR),2,1)+":DISK LAB.INST,S,R":GOSUB28:IFERTHENGOSUB31:GOSUB7:GOTO425
429 GOSUB19:X=.:Y=4:GOSUB9:IFS=4THENPRINT#S
430 INPUT#1,P$:IFP$="END"THENP$=S6$:GOSUB10:GOTO436
431 IFI$="^"THEN436
432 PRINTR$"[155]"P$:IFS=4THENPRINT#S,P$
433 IFPEEK(214)<22THEN430
434 P$=S6$:GOSUB10:IFI$="P"THENS=4:CLOSES:OPENS,4,SA
435 GOTO429
436 CLOSE1:CLOSES:IFU=1THENRETURN
437 :
438 GOSUB467:GOSUB7:X=PEEK(152):FORI=1TOX:CLOSEPEEK(601):NEXT:P0$="SORTED":G=2:IFU>8THENG=4:IFU=10THENG=.
440 POKE198,.:K=.:M=.:LN=.:J$="":F$=DT$:IFN<1THENN=.:DT$="NO FILE NAME   ":ID$="?":BK$="00":P=1:G=.
442 Y=4:X=10:GOSUB9:PRINTM$(.):Y=5:IFBK$=""THENBK$=" ?"
443 FORI=1TO15:P$=R$:IFN<1THENIFI=3ORI=4ORI=5ORI=6ORI=8THENP$=O$
444 IFI=6THENIFP=.THENP$=O$
445 IFI=7ORI=8THENIFMATHENP$=O$
446 IFI=11THENIFP=2THENP$=O$
447 IFI=10ORI=11THENIFMA=.THENP$=O$
448 GOSUB9:PRINTW$P$RIGHT$("  "+STR$(I),2)W$;:PRINTO$M$(I):Y=Y+1:NEXT:IFPTHENP0$="UNSORTED":IFP=2THENP0$="ALPHABETIZED"
450 P$=DT$:IFN>.THENP$=P$+ID$+BK$+" BKS FREE"
451 Y=21:X=20-LEN(P$)/2:GOSUB9:PRINTW$P$:P$=STR$(N)+" PROGRAMS : "+P0$:Y=22:X=20-LEN(P$)/2:GOSUB9:PRINTR$P$
453 F$="":U=1:GOSUB205:G=C:IFUTHEN462
454 C=C+1:IFC=1ORC=2ORC=7ORC=9ORC=12ORC=13ORC=14ORC=15THEN458
455 IFC=6THENIFP=.THENPOKES+B,160:GOTO453
456 IFC=10ORC=11THENIFMA=.THENPOKES+B,160:GOTO453
457 IFN<1THENPOKES+B,160:GOTO453
458 IFC=7ORC=8THENIFMATHENPOKES+B,160:GOTO453
459 IFC=11THENIFP=2THENPOKES+B,160:GOTO453
460 P$=BL$:GOSUB17:POKE53280,7:IFC>2THENGOSUB467
461 ONCGOSUB112,78,255,283,94,181,184,185,224,233,247,272,353,426,463
462 GOSUB467:GOTO438
463 IFN=.THEN466
464 PRINT"[158]";:P$="HAVE YOU SAVED CURRENT [158]FILE?":GOSUB72:IFI$="N"ORI$="^"THENRETURN
466 PRINT"[147]HAPPY COMPUTING!!":CLR:END
467 IFLEFT$(DT$,7)="\MASTER"THENPOKE53280,13:MA=1:RETURN
468 MA=.:POKE53280,7:RETURN:DATA"[158]     MAIN MENU      ","CREATE A NEW FILE","LOAD A FILE":DATA"VIEW/EDIT ENTRIES","PRINT ENTRIES","SAVE ENTRIES":DATA"SORT ENTRIES","ADD A SINGLE ITEM","SEARCH BY NAME"
473 DATA"CREATE MASTER FILE","PRINT MASTER FILE","ALPHABETIZE MASTER":DATA"PRINT OPTIONS","EQUIPMENT SETUP","INSTRUCTIONS","EXIT TO BASIC":DATA"  15/16 X 3 1/2  HEADER INFO ONLY":DATA"1  7/16 X 4      MAILING LABEL","1 15/16 X 4      MAILING LABEL"
478 DATA"2 15/16 X 4     SHIPPING LABEL","2 15/16 X 5 3/4 SHIPPING LABEL":DATA"2  1/16 X 4  ROTARY FILE CARD","3 X 5        ROTARY FILE CARD":DATA"3 X 5        FILE CARD","4 X 6        FILE CARD"
481 DATA"5/SUP ACROSS PAGE","5/CON ACROSS PAGE","3/REG ACROSS PAGE":DATA"**** USER SUPPORTED SOFTWARE ****":DATA"YOU ARE ENCOURAGED TO COPY AND SHARE":DATA"THIS PROGRAM WITH OTHER USERS ON THE"
485 DATA"CONDITIONS THAT THE PROGRAM IS NOT  ":DATA"DISTRIBUTED IN MODIFIED FORM, THAT  ":DATA"NO FEE OR CONSIDERATION IS CHARGED, ":DATA"AND THAT THIS NOTICE IS NOT BYPASSED":DATA"OR REMOVED.                         "
490 DATA" IF YOU FIND THIS PROGRAM TO BE   ":DATA" OF VALUE, A CONTRIBUTION TO THE  ":DATA"   AUTHOR WILL BE APPRECIATED.    ":DATA"":DATA"FREDIE J. LAYBERGER":DATA"14524 'N' STREET   ":DATA"OMAHA, NE 68137    "